' 
’ 
. 
' 
; 
« 
? 
’ 
H 
’ 
; 


Purpose: This is 
. PROC 
caf 
ROMO EQu 
ROM1L EQU 
ROMS ize EQu 
VideoMemory EQU 
VidSize EQU 
LEDon EQU 
LEDof fF EQu 
move. L. 
movem, | 


File: BaotROM. 


Edit Date: 08/02/83 


TEXT - 
the main Flow 


BootROM, 0 
MakeDesk 


$00000000 | 
$00020000 
$OOO07FFF 
$00000000 
$00020000 
$00003000 
$0000300C 


(SP )+, AO” 


for the Lisa 1. 78 Boot. ROM 


; Location of ROM 

sLocatian of secand ROM 

;Size of aach ROM 

jLecattan of Video Memory 

;Size of Video Memory | 

:;Turn on LED en CPU BOARD, disable Serial Port A 


; Turn off LED on CPU BOARD, enable Serial Port A 


: : : | 
;3ave Ceturn address: 


d0-d7/aQ-a6,-({sp) ;Save everyone 


t *“ 


; Set exception vector pointer to defaults in ROM 
RESETO, AO ‘ 


LEA 


wee we we me 


tst.b 


HOR HOH MOVE. L (a0 ), VAR 


Set stack ta video memory 


LEDon 


; Set Lisa Video mode. 


move. 
mave. 
lea 
bra 
ROMODone 
move. 
move. 
lea 
bra 
ROM1Done 
move. 
mave. 
lea 
bra 
VidMDone 
move. 
move. 
lea 
bra 
VidPMDone 


SetContras 
3etVo lume 
Silence 
Beep 

Pall : 
Keyboard 

; KeybdEvent 
; KeybdPeek 


rr ee rs 


I 
l 


Write screan area 
Rést of screen memory to all zeros) 


t- 


#ROMO, al 
SROMS ize, dl 
ROMODone, a0 
CheckSum 


#ROM1, al 
SROMS ize, dl 
ROM1Oo0ne, a0 
CheckSum 


Init naw Exception Base FOROIRORO ICDC HOIOIOIOION OR 


- JOOIIOK RIOR ICICI ILHOIOIIOIOIOI IOIOICIIORGIOR IC IDIOIOICKCROIOIOR I HOR 


iTurn on CPU board Leo 


;Addrass of ROM for Ghecksum test 
;Langth of ROM 

;Return address, can not use the stack 
(Go verify the checksum of First ROM 


/ 
vedarees of ROM: far Checksum test 
jlLangth of ROM 3 

;Return address, can not use the stack 
;Ge verify the checksum of second ROM 


#VideoMemory, al ; Address of Video mamary 


#VidSize,di 
VidMOone, a0 
VidMem 


Length of Video” memory 
;Return sddress, can not use the stack 
* ¢Ga do video memary test 


#V idaoMemary, ai; Address of Video mamory 


&VidSize,dl 
VidPMDone, a0 
VidPMem 


ro all ones 


MakeDesk 


#1,d0 
Timers 


R$232 
IExpansion 


#1,d0 
Timers 


#1,d0 
Timers 


COPSTest 


jLengeh of Video mamory 
pReturn address, can not use the stack 
360 de, wages meMery parity test 


Hake a deaktes 


4 Timer #l teat: {tever 6). 


“;Rs292 Saves fuatel 6). 
Ck for axpansion and slot 4 inter (s to » 2). 


timer #0 test. 
tae #2 test. 


very basic COPS operation. 


4 


Set new contrast value. 


Set speaker vo 


_ Turn of F speaker. 


lume. 


Tones for speaker. Bs 
Polling made on COPS. ; * 


Get keyboard L. 
Get a keyboard: 


o. «Ps 
avant, must also handle COPS error codes. . 


Examine keyboard ‘quéeye. 


SizeMemary 


MMUBas ics” 


MEMPatterns 


MEMPar ity 


MMUFunet tonal 


a ea en ne ER RE Ray Mp RE arte 2 ae eee ne acne tte rete 


ySize memory, Find all nemery 


PMH aa Ainves & address tast. 


nea memory pattern tests. 
Mai memary. parity circuit (test. 


ry 


: MMU rapersonel test. ie: ‘ ae 


‘7 


Fleppy driver - Read a sector. 
Floppy driver - Eject a disk. 
Floppy driver - See if disk is. in. 
Floppy driver ~ Oebug commands required by Field Service. 

bsr IWMChip yTWM, Floppy driver chip, test. 


ea we ee ome 


disk driver ~ Read status. of selftest. 


disk driver ~ See if disk is ready yat. 
disk driver - Read a sector. 


Built-in hard 
Built-in hard 
Built-in hard 


es te ee ee 


bsr BuiltIn ;Builtin hard disk port test 
bsr TastlExpansion j Execute expansion card status program . 
bsr ‘Test2Expansion ; Execute expansion card status program 
bsr Tast3Expansian ;Exnecute expansion card status program - 
bsr Test4Expans ion j Execute expansion card status program 


+,d0-d7/a0-a6. ; Restore the ward 


movem. | sp 
ad 


SITAR AAARAAASAABATAsseszrazaswess 


| DEFAULT EXCEPTION HANDLERS 


j HRS SSRSAR SSAA SS eRTASARI IST ree As ’ , 

RESETO . LONG DPROGRAM 3( O) Never here 
RESETL . LONG ODPROGRAM >( 1) Never here. 
BUSERR -LONG  DOBUSERR 3( 2 

ADDRERR . LONG DADDRERR 7 3 

ILLINSTR . LONG OILLINSTR ;( 4 

ZEROOLV . LONG DPROGRAM 3( SS 

CHKINSTR . LONG DPROGRAM 3( 6 

TRAPVINSTR . LONG DPROGRAM . 7 

PRIVILEGE . LONG DPROGRAM : 8 

TRACE . LONG OPROGRAM = ;( 9) Never here. 
LINELOLO . LONG DRESERVEOD ;(10) Never here. 
LINELLL1 .LONG ORESERVED' ;(11) Never here. 
RESV1 . LONG DRESERVED ;{12) Never here.. 
RESV2 . LONG DRESERVED :(13) Never hare. 
FORMATERR .LONG DPROGRAM ;(14 ; 
UNINITINTER . LONG DPROGRAM +(15 

RESV3 . LONG DRESERVED. ;{16) Never haere. 
RESV4 LONG DRESERVED ; (17) Never here. 
RESVS . LONG ORESERVED ;(18) Never here. 
RESV6 -LONG ORESERVED ;(19) Never here. 
RESV7 .LONG ORESERVED ;(20) Never. here. 
RESV8 .LONG ORESERVEO ;(21) Never here. 
RESV9 . LONG DRESERVED ;{22) Never here. 
RESV1O .LONG ORESERVEOD .;{23) Never here. 
SPURTOUS . LONG OSPURIOUS . ; (24 

LEVL . LONG LEVLINT 3(25 

LEV2 . LONG LEV2INT 3(26 : 

LEV3 “LONG LEV3INT ;(27) / 

LEV4 . LONG LEV4INT . 3 (28 i 

LEVS . LONG LEVSINT 3(29 

LEG LONG LEV6INT +(30 

LEV? . LONG LEV7INT ¢(313 


' 


i é , x 4 
DBUSERR -3 bus efror exceptian . 


a om Pe Pt SN ne A A nh Serr 
a a tr Pe 


mava.w 187002, d0 ;gat Status register #1 ; 
btst #9,d0 sMMU efror? 
bne DMMUERR 
MOVEQ #100,07 ; bus error exception (bus timeout ) 
BRA FATAL : o's 
7 C ; | es 
DMMUERR 33 ; ! . 
MOVEQ #101, 07 ; bus error axceptian (invalid MMU access ) 
' BRA FATAL 
: . 
DPROGRAM ; ; 
MOVEQ #102, 07 3 Programming error 
BRA FATAL ; ; 
H : he pote e aN - 
DADORERR a 
MOVEQ #103, 07 } address error : + 
BRA FATAL a 
; Ene roe rae Wer Soe Se mE 
DILLINSTR - 
MOVEQ #104,07 + illegal instruction arrar 
BRA FATAL by . : 
; WN, foie 
DRESERVED . A . _ 
MOVE) #105, 07 4 Reserved axception 
BRA FATAL 
7 : | 
OSPURIOUS : ee os bt ce eS ¢ 
MOVEQ #106,07 ; Sut ious excaption;. +” a 


| BRA FATAL . I : 

b; ; | : me 

LEVLINT move.w $187000, d0 gee Status register #0 
best #4,d0 ; COPS? 
bne ~ LEVICOPS ; 
btst #0, d0 ; Timer 0? 
bne LEV1TO 
btst #2, d0 ;Vertical Interrupt? 
bne LEVIVI : 
btst #3, d0 gHaed Otsk? | ‘ 
bne LEVLHD * on * 
MOVEQ #107,07 y; unexpected leval 1 unknown interrupe 
BRA FATAL 

| Levicors MOVEQ #108,07 ; unexpected level 1, COPS interrupt 
move.b $005000, d4 ;Gee COPS data for error lag table 
move,b d4, $005000. ~ Clear interrupt . 
BRA FATAL ; 

LEV1TO MOVEQ #109,07 cheupected ‘lavel 1 Timer ) jiderHunt 
move.b #$00, 004007 ir ite Timer mode register ta disable Timer 0. 
BRA FATAL oo 

LEVIVI MOVEQ #110, 07 © : Gduxpeceed level 1 Vertical. interrupt 
tst.b. s0030C0 ;Clear interrupt by this address 
BRA FATAL : ‘ 

LEV1HD MOVEQ #111, D7 ; unexpected lavel 1 Hard disk interrupt 
tst.b $003006 ;Clear interrupt by a) Disable interrupt 
tst.b $003007 H ; bh} Enable interrupt 
tst.b  $£003006 jOisable interrupt for exiting 
BRA FATAL 

; 

LEV2INT MOVEQ #112, 07 ; unexpected level 2 interrupt (expansion slet 4) 
LEA — OLOSR, a6 ; 
and.w HSFEFF, (a6 ;Zero interrupt level | 
or. seo100 tae ;Changa exit interrupt level to 2 
BRA FATAL 

Dre meter ahr renner rn rae Scher imiy Ted chinensis drwy ieihchetine erent : 

LEV3INT MOVEQ #113,07 j; unexpected level 3 interrupt (expansion slot 3) 
LEA OLDSR, a6 ! aa ti 
and.w aSFAr, (a6 ;Zera interrupt level 
or. bso200;| \ ;Change exit. interrupt level ta 3 
BRA FATAL | . 

: : 

LEV4INT MOVEQ #114,07 ; Unexpected level 4 interrupt (expansion zlat 2) 
LEA OLOSR, a6 i 
and.w #sFrerf, (a6 iZera interrupt level 
or. w oses00 | ;Change@ exit interrupt level to 4 
BRA FATAL "3 . 

i 42 ty I ° 

LEVSINT MOVEQ #115,07 ; unexpected level 5 ifterrupt (expansion slot 1) 
LEA OLOSR, a6 : ‘ . : 
and.w RSFEFF, (a6 ;Zare interrupt level : 
or.w seud00. se ;Charige exit intercupt level to S. - 
BRA so FATAL i ae 

i ce ee ee Sane 

LEV6INT move.w $187000; dO get. Statue register #0 
btst #0, d0 ; Timer 1? sg 
bne LEV6T1 : 
@ove.b #3, $006003 j select register ta read - 
move.b $006007,d0 +4..read SCC status 
and.b #$07, dO jie it B? 

. bone LEV68 eee | 

MOVEQ #116,07 j; unexpected level 6 RS+232 port A. interrupt 
BRA FATAL a 

; iz 

LEV68 MOVEQ- &117,07 ; praareets level 8 RS+232 port B interrupt — hs 
BRA FATAL ; ] é . 

LEV6T1 MOVEQ #8118,07 ‘ Graspected ¢ Jaca 6 Timer et intereupt 
move.b #$40, $004007 iWeite Timer mode register to disable Timer 1 
BRA FATAL ‘ 

U a RE 

LEV7ZINT move.w $187000,d0 jget Status register #0 : 
btst #5, d0 (Parity. Errar? 
bne LEV7PE 
MOVEQ #119,07 ; unexpected level 7 (NMI) interrupt 
BRA FATAL : aaa 

LEV7PE MOVEQ #120, 07 } unexpected laval 7 (parity errar) interrupt 
BRA FATAL : 

FATAL : t 

ere LEA EXP, A6 a 


a ere a Pe en ees tsetse eset doherty enfin SPAS Atri tree Pr tac sy ieee pt 
we wee ee wes ee ee ee > ‘ aoe re ee ee ee en eer ee Ty 


i - 


move. w SP )+, (AG )+ ‘ 1) save Status register 
move. 1 (SP )}+*, (AG )+ ; 2) save Program Counter 
move.w (SP )+, (A6 )+ ay 4). save Format and vector offeat 
5 todo LEA FORMAT, AS ; 
btst #15, (a6 )- ; Lang or short format? 
beq Shore : oe 
move. W SP )+, (AG )+ ; §) save Special Status word 
move. | SP )+, (AG )+ &) save Fault address 
mave.w (SP )+#, (AG )+ + (- @) save Reserved | 
move. w SP )+, (AG )+ ; 9) save Deta Output buffer 
move. w SP j+, (AG )+ 5 (10) save Reserved 
mave, W SP )+, (A6 )+ ; (11) sava Osta input buffer 
mave.w (SP )+, rie 3; (12) save Reserved 
move. w SP )+, (AG )+ ; (13) seve Instruction, input buffer 
move. w pO pase ¢ (14) save internal word .1 
move, w SP )+, (AG )+ ; 15) save internal word 2 
mave.w ye AB }+ 3° (16) save internal ward 3 
move. w SP )+, (AG )* ¢.(17) save internal word 4 
mave. w SP )+, (AG + ¥°(18) save internal ward 5 
mave.wW SP )+, (AG + 5° (19) save internal word. 6 
move. uw SP )+, (AG )+” + (20) save internal word 7 
mave.w SP )+, (A6 }+ ; (21) save internal word 8 
move. Ww SP )+*, (A6 )+ ; (22) save internal word .9 
move. w SP )+, (AG )* i: (23) save internal word 10 
move. w SP )+, (A6 )}+ + (24) save internal word 11 
 mave.w SP )+, (AG }+ ; (25) save internal word 12 
move. w SP )+, (AB }* + (26) save internal word 13 
move. w SP )+, (AG )*. 3; (27) save internal ward 14 
mova. w SP )+, (ASG )+ ; (28) save internal word 15 
mave.w SP )+, (AG )+ ; (29) save internal word 16 
Share : 
BRA EXIT ; 


Function ~ Compute a checksum on the memory painted to. 


On entry expects 

return address after test is dona 
start address to check 

number of bytes to test 


a 
rm 
How ou 


7 dl 

; On exit : bos 
; dO = 0 for checksum OK, and non-zero for bad checksum 

: dl is destroyed 

: d2 = Expected chacksum 

; d3 = Actual checksum 
‘ 


heckSum 
imp (a0) 


ee Rael ie iL 
; Funet ion - Perform memory tests an the videa mamory 


On entry expects _ / 


dO = 0 for memory OK, and non-zero far bad memory 
Memory is left at all zeros . 

idMem « Be 

jmp (a0). ; 


; On exit 
. 


r 


Function ~- Perform parity tests on video memory 
ch 

On entry expects 

aQ = return address after test iz dane 

al = start address to check 


’ 
1 
, 
: 
r) 
’ 
; 
; On exit 
; 
, 
Vv 


dl number of bytes to test 
dO = 0 for memory OK, and non-zero for bad memory parity 
Memory is left at all zeros P 
Eterm . aA 
jmp (a0) . ‘. tk | pin 2 
; 


Function - Perfarm timer chip tests 


On entry expects m : 
dO = timer. number to test, byte (0 ga 2) 


Qn exit 
dQ = ) far timer OK, and nan<zero for bad timer 
imers =e 


; . @0 = Detailed error table ™ . ‘ 

r 
rts 

Funetion ~ Perform RS232 port tests = 


On entry expects 
nathing expected 


A omg ut 


--—_~ rc SA dinero asses sss ahi pss tsetse mph veterans sr rsneterng—-~~rememayiet heft rsneemerneran 
; On exit ; ; : age “At 
: dQ = 0 for timer OK, and non-zero for bad timer 
; a0 = Detailed error table 
RS232 . 


io “8 ; - 


rts - 


Function ~- Check for expansion slat and slot 4 interrupts 


On entry expects 
nothing expected 


- 


+ On exit 
F d0 = Q for 
. aQ = 
TExpansian 


cts 


interrupts OK, 


Oetailed error table: 


and non-zero for stray interrupts coming: in 


Function - COPS test, turns an the port, ceads the clack, 
uses special register read commands to verify COPS (Checksum? ), sends 
keyboard reset command and gats keyboard 1.0. to check agsinst previous 


1.0. Handles COPS error codes coming in. 


br ings in ding sodes, 


On entry expects 


; nothing expected — : : 
; On emit ae Yi 
: 


dO = 0 for COPS OK, and non-zero for bad values prom cops 
aQ = Detailed error table 
OPSTest 


rts 


Function - Find memory on other boards. 


; On entry expects ‘ 

; nothing expected . : , ll rr 
; On exit ; he 
: dO = 0 far found memery OK, and non-zero far non memory found 
; aQ = Detailed error table i 

; Places memory data in table in video memory 

SizeMemory 


rts 4 


; Function ~ MMU read/urite & address test. 
; On entry expects 

: Expects that a memory board exists. _ ; oe 
; On exit / . i . , " 
: dO = 
’ 

M 


0 far MMU OK, and non-zera for bed MMU Ram 
aQ = Detailed error table. 
Leaves MMU in a state that ...... ; 

MUBasics ie | 7 
; ; ! 

res ‘ 

* , i P 

+ Function = Main memory pattern tests. ome iy , 4 
; On entry expects a | 7 . » 
; Expects that a memory board exists 
; On exit yO | 
; dO #0 for MMU OK, and non-zera for bad Ram ree 
; aQ = Detailed error table ; 
; Leaves Mamory written to all zeres. 
MEME SE CErOe : i 

rts ae . 


Function ~ Main memory parity circuit test: 


; On entry expects . ce 
; Expecns that a memory baard emists 


On exit | + 
dO = 0 Far MMU OK, and non~zero far bad MMU Ram , oa 
30 = Detailed error table = : ; ° 
Leaves MMU in a state that ...... = 
MEMPar ity : & ; 
rts : Z Pt 


Function - MMU functional test. 


Expects that a memory board: exists | 
Qn exit : 
dO = Q for MMU OK, 


= and non- zero ‘Far bad MMU Ram 
320 = 


1 

s 

; Om entry expects 
' 

} . 
: Detailed error table ' ek ae he 


Sina toonee inthe mnie iano arent Nasal inns 


et ae RRR et: ew 


Sant 


Laaves MMU in a state that .i.i0. 
| MMUFunct ional : 


> 4 


ets 


Function - IWM, floppy driver chip, test. 


; On entry expects 

5 Expects nothing 

; On exit 

; dO = 0 For IWM OK, and non-zera for bad IWM 

: aQ = Detailed error table : 

; Leaves IWM in a state that ..;,... 
I 


rts 


Function - Built-in hard disk port test by 


On entry expects : 
Expects nothing he SL 
On exit 

7 dQ = 0 for part OK, and non-zerea for bad port 

: aQ = Detailed error tabie : 

; Leaves port in a state that ...... 

BuiltIn : 


rts 


Function - Execute expansion card 1 status pregram 


; On entry expects 

; Expects nothing 

; On emit : 

: dO = Q for card OK, and non-zero for bad card 
: aQ = Detailed error table ¥ 
TestlExpansion 


rts 


Function - Execute expansion card 2 status program 


; On entry expects 

; Expects nothing 
; On exit 
; dO = O for card OK, and non-zero for bad card 

; aQ = Detailed error table 

Test2Expansion 


rts 


Function - Execute expansion card 3 status pragram 


; On entry expects 
4 Expects nathing “ s ae Lor’ 
; On exit ee eo 

i dQ = 0 for card OK, -and non-zero for bad card ~. 

; aQ = Detailed error table 

; 


On exit , ‘ 


aQ = Detailed error table aut ie 


est3Expansian » 
. rts 
7 
; Function ~- Execute expansion card 4 status program : 
; On entry expects . | : 
i Expects nathing , Pt ; Scapa. #: © 
; dO = O for card OK, and non-zero far bed card 
t 


est4Expansion 


rts 
. PROC MakeDesk,0 : 
ref Alcon _Draw, ADialag,OeskTap,Paint String, Paint Ch 


bad ‘ 


we 


mave.t. (SP )+,AQ ; save return -address 
mavem. 1 d0-d7/a0~a6, -( sp) }Save averyone - 


jsc DeskTop - + 3 Make a blank desktop. 

mave.W #60,-(SP) rar g os a , 
move.W #30,-(SP) “hae, Ee - 3 . es ; 
move.W #640,-(SP) ~ .. 3M2 eo 6 OP 
move.W #90,-(SP) — yy2 atest Hh Mie ES en te PA 


7g 


jsr 


mave. 
move. 
move. 
jer 


Zz 


move. 
move, 
move. 
jser 
move. 
move. 
lea 
move. 
jsc 


-T- fe BEE 


move. 
move. 
move. 
jsr 


zZzr=z 


move. 
mave. 
move. 
jse 

move. 
move. 
move. 
jse 


-EEE 


z= 


€ 


move. 
move. 
move. 
jsr 

move. 
move. 
mave. 
jsr 


Ze =z 


ez=z 


move. 
move. 
move. 
jsr 

mave. 
move. 
move. 
jsr 


EZ£r BEE 


move. 
move. 
move. 
jsr 

move. 
mave. 
nave. 
jse 


ETT BEE 


movem. | 
jmp 


. Byte 
ASCII 
. Byte 


“END 


ADialag 


#90, -(SP 
#50, - eet 
#8,-(SP)- 
Alcon _Oraw 


#170, -(SP ) 
#50, -(SP) 
#1,~-(SP) 
Alcan _ Draw 
#172, -(SP) 
#60,-(SP) 
CPU, al 

al, -(SP) 


Paint String | 


#250, -(SP) 
#50, -(SP)} 
#2, -(SP) 

Alcon Draw 


#330, -(SP) 
#50,-(SP) 
#3, -(SP) 

Alcan Oraw 


#410, -(SP ) 
#50, -(SP) 
#3,-(SP) 
Alcon _Oraw 
#420, -(SP) 
#60, -(SP ) 
#' 2', -(sp) 
Paint_Ch 


#490, -(SP ) 


#50, -(SF) 


~(SP ) 


- Alcon _Oraw 


#500, =(SP ) 
#60, -(SP) 
#'°3',-(sp) 
Paint _Ch 


#570, -(SP) 
#50,-(SP) 
#1,-(SP) 
Alcon Oraw 
#580, -(SP) 
a60, ~(SP ) 
84’, -(sp) 
Paint Ch 


_ g8tring address 


at 
pyle : 

jtcan cade, aunts beard rieeur a: 

pecae ‘memory board epee in ‘box, 


;Oraw dialog box for main screen 


smh 

iyl 

;leon cade, LISA piéture 
;Orew LISA picture in box 


ars! 


iyl 


ylean code, Big board picture 


;Draw Big baard picture in box 
ki : 
ryt 


t 


ped _ ea Ro 
py. 


y 

; Icon. code, Expansion card 1 Metis 
; Oras Expansion card picture in box 
;xl1 

syl 
; Character 
;Place character on. , the screen 


yl 

py 

i [con code, Expansion send 2 picture 
; Or aw Expansion card picture in box 
bes 


atygl 


+ Character 2 : 
;Place character on: ‘the screen 


zoel 
’ 3 yl. : : 
; lean cade, Expansign card 3 picture 


at Oral Expansion card picture in box 
pul: . 


ih 
;Character 
Place charsccurs on the sctraeen 


cal 


-gyl 


iTcdn code, Expansion cerd 4 
;Oraw Exp Asion card picture in. box 


ciel 
Jyh 


«Character. 


;P lace character on the screen 


(3p a aa: }Restore the world 
a face 


& 


8 


rage 


es jonni ee oe rae : 


